   3 :return 
   4 .FREQUENCIES
   5 .ROBERT HOOD
   6 .AUGUST 1979
   9 NT=0
  10 clear ;print "BALLY TONE FREQUENCIES
  20 print "COMPUTES FREQUENCY        OF TONE
  30 print "REGISTER A B OR C if VALUE OF
  40 print "MASTER AND TONE REGISTERS
  50 print "ARE KNOWN. ALSO COMPUTES
  60 print "SETTINGS OF TONE REGISTER
  70 print "for A DESIRED FREQUENCY
  80 print "if MASTER REGISTER VALUE
  90 print "IS KNOWN
 100 print "FOR FREQUENCY CALC        input 1
 110 input "for SETTING TONE          input 2 ?"A
 120 if A=1goto 150
 130 if A=2goto 300
 140 goto 100
 150 clear ;input "MASTER COUNTER VALUE ?"M
 160 input "TONE COUNTER VALUE ?"T
 170 F=10000div ((M+1)mul 112);H=RMmul 10div ((M+1)mul 112)
 172 G=10000div (T+1);I=RMmul 10div (T+1)
 174 F=Fmul G+Gmul Hdiv 9+Fmul Idiv 9+Hmul Idiv 9
 190 print ;print "FREQUNCY IS ",F,"HERTZ
 200 input "input 1to CONTINUE CALC.?"Z
 210 if Z=1clear ;goto 100
 220 STOP
 300 clear ;input "input DESIRED FREQUENCY?"F
 310 R=10000div F;V=RMmul 10div F
 320 S=89
 330 print ;input "SET MASTER COUNTER VALUE?"M
 340 S=Rmul Sdiv (M+1)+Vmul Sdiv (Mmul 9)
 350 print ;print "FOR FREQUENCY OF,F
 360 print "MASTER COUNTER",M
 370 print "TONE VALUE IS",S
 380 print ;print "input 1 to CONTINUE
 390 input "input 2 to STOP ?"J
 400 if J=1 clear ;goto 100
 410 STOP
:return ;run 
